home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / aakint14.arc / MTRCVBUF.PAS < prev    next >
Pascal/Delphi Source File  |  1986-08-24  |  1KB  |  24 lines
  1. (********************************************************************)
  2. (* THIS PROCEDURE WILL EMPTY THE RECEIVE BUFFER ON THE INPUT CHAN   *)
  3. (* INPUT        : Ser_Chan                                          *)
  4. (* INPUT/OUTPUT : NONE                                              *)
  5. (* OUTPUT       : EMPTY RECEIVE BUFFER                              *)
  6. (* USES         : NO SIDE EFFECTS                                   *)
  7. (* CALLS        : Data_Present, Recv_Char                           *)
  8. (* ERRORS       : NONE CHECKED                                      *)
  9. (* GLOBAL VARS  : NONE                                              *)
  10. (* SUBJECT      : SERIAL COMM, CLEAR RECEV BUFFER                   *)
  11. (* DOMAIN       : ARNO A. KARNER                      LEVEL : 002   *)
  12. (********************************************************************)
  13.  
  14. PROCEDURE Empty_Recv_Buffer                    ( Ser_Chan : INTEGER );
  15.  
  16. VAR
  17.    OK        : BOOLEAN ;
  18.    Temp_Char : CHAR ;
  19.  
  20. BEGIN (* MT RECV BUF *)
  21.    WHILE Data_Present ( Ser_Chan ) DO
  22.          Recv_Char ( Ser_Chan , Temp_Char , OK ) ;
  23. END ; (* MT RECV BUF *)
  24.